home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / bbs / msgr10.zip / MSGR.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-05-21  |  3KB  |  269 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2548 bytes  08/30/122  01:58:48am
  3. '! Code Segment Size  :2380 bytes
  4. '! Data Segment Size  :4847 bytes
  5. '! String Segment Size:168 bytes
  6. '! Compiled with WCC version 4.12
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 14) As Byte
  14.         s174 As String*70
  15.         Filler244(1 To 8) As Byte
  16.         dt252 As DateTime
  17.       End Type
  18.  
  19.       Dim s4463 As String
  20.       Dim s4467 As String
  21.       Dim s4471 As String
  22.       Dim s4475 As String
  23.       Dim s4479 As String
  24.       Dim i4487 As Integer
  25.       Dim i4489 As Integer
  26.       Dim i4491 As Integer
  27.       Dim i4493 As Integer
  28.       Dim i4495 As Integer
  29.       Dim i4497 As Integer
  30.       Dim i4499 As Integer
  31.       Dim i4501 As Integer
  32.       Dim i4503 As Integer
  33.       Dim i4505 As Integer
  34.       Dim i4507 As Integer
  35.       Dim i4509 As Integer
  36.       Dim i4511 As Integer
  37.       Dim i4513 As Integer
  38.       Dim i4515 As Integer
  39.       Dim s4517 As String
  40.       Dim mh4521 As MessageHeader
  41.       Dim dt4841 As DateTime
  42.  
  43.       s4463 = "MSGR.CFG"
  44.       If Exists(ProgPath + s4463) Then
  45.         Open ProgPath + s4463 For Input As 1
  46.         Input #1, s4467
  47.         Input #1, s4471
  48.         Input #1, s4517
  49.         Input #1, s4475
  50.         Input #1, s4479
  51.         Input #1, i4487
  52.         Input #1, i4489
  53.         Input #1, i4491
  54.         Input #1, i4493
  55.         Input #1, i4495
  56.         Input #1, i4497
  57.         Input #1, i4499
  58.         Input #1, i4501
  59.         Input #1, i4503
  60.         Input #1, i4505
  61.         Input #1, i4507
  62.         Input #1, i4509
  63.         Input #1, i4511
  64.         Input #1, i4513
  65.         Input #1, i4515
  66.         Close 1
  67.         GoTo 307
  68.       Else
  69.   263   Cls 
  70.         Print ""
  71.         Print ""
  72.         Print "@0A@Sorry, configuration file not found. Tell the Sysop."
  73.         Delay 3
  74.         GoTo 2289
  75.   307   CopyFile(ProgPath + s4479, TempPath + s4479)
  76.         Open ProgPath + s4479 For Append As 1
  77.         Print #1, ""
  78.         Print #1, "This message was posted using The Messenger v 1.0 for Wildcat!"
  79.         Close 1
  80.         If i4487 <> 0 Then
  81.           mh4521.From = s4467
  82.           mh4521.To = s4517
  83.           mh4521.Subject = s4475
  84.           CurrentDateTime dt4841
  85.           mh4521.MsgTime = dt4841 '! 6 bytes
  86.           GoTo 471
  87.         Else
  88.   465     GoTo 2289
  89.   471     Join i4487
  90.           AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  91.           If i4489 <> 0 Then
  92.             mh4521.From = s4467
  93.             mh4521.To = s4517
  94.             mh4521.Subject = s4475
  95.             CurrentDateTime dt4841
  96.             mh4521.MsgTime = dt4841 '! 6 bytes
  97.             GoTo 598
  98.           Else
  99.   592       GoTo 2289
  100.   598       Join i4489
  101.             AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  102.             If i4491 <> 0 Then
  103.               mh4521.From = s4467
  104.               mh4521.To = s4517
  105.               mh4521.Subject = s4475
  106.               CurrentDateTime dt4841
  107.               mh4521.MsgTime = dt4841 '! 6 bytes
  108.               GoTo 725
  109.             Else
  110.   719         GoTo 2289
  111.   725         Join i4491
  112.               AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  113.               If i4493 <> 0 Then
  114.                 mh4521.From = s4467
  115.                 mh4521.To = s4517
  116.                 mh4521.Subject = s4475
  117.                 CurrentDateTime dt4841
  118.                 mh4521.MsgTime = dt4841 '! 6 bytes
  119.                 GoTo 852
  120.               Else
  121.   846           GoTo 2289
  122.   852           Join i4493
  123.                 AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  124.                 If i4495 <> 0 Then
  125.                   mh4521.From = s4467
  126.                   mh4521.To = s4517
  127.                   mh4521.Subject = s4475
  128.                   CurrentDateTime dt4841
  129.                   mh4521.MsgTime = dt4841 '! 6 bytes
  130.                   GoTo 979
  131.                 Else
  132.   973             GoTo 2289
  133.   979             Join i4495
  134.                   AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  135.                   If i4497 <> 0 Then
  136.                     mh4521.From = s4467
  137.                     mh4521.To = s4517
  138.                     mh4521.Subject = s4475
  139.                     CurrentDateTime dt4841
  140.                     mh4521.MsgTime = dt4841 '! 6 bytes
  141.                     GoTo 1106
  142.                   Else
  143.  1100               GoTo 2289
  144.  1106               Join i4497
  145.                     AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  146.                     If i4499 <> 0 Then
  147.                       mh4521.From = s4467
  148.                       mh4521.To = s4517
  149.                       mh4521.Subject = s4475
  150.                       CurrentDateTime dt4841
  151.                       mh4521.MsgTime = dt4841 '! 6 bytes
  152.                       GoTo 1233
  153.                     Else
  154.  1227                 GoTo 2289
  155.  1233                 Join i4499
  156.                       AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  157.                       If i4501 <> 0 Then
  158.                         mh4521.From = s4467
  159.                         mh4521.To = s4517
  160.                         mh4521.Subject = s4475
  161.                         CurrentDateTime dt4841
  162.                         mh4521.MsgTime = dt4841 '! 6 bytes
  163.                         GoTo 1360
  164.                       Else
  165.  1354                   GoTo 2289
  166.  1360                   Join i4501
  167.                         AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  168.                         If i4503 <> 0 Then
  169.                           mh4521.From = s4467
  170.                           mh4521.To = s4517
  171.                           mh4521.Subject = s4475
  172.                           CurrentDateTime dt4841
  173.                           mh4521.MsgTime = dt4841 '! 6 bytes
  174.                           GoTo 1487
  175.                         Else
  176.  1481                     GoTo 2289
  177.  1487                     Join i4503
  178.                           AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  179.                           If i4505 <> 0 Then
  180.                             mh4521.From = s4467
  181.                             mh4521.To = s4517
  182.                             mh4521.Subject = s4475
  183.                             CurrentDateTime dt4841
  184.                             mh4521.MsgTime = dt4841 '! 6 bytes
  185.                             GoTo 1614
  186.                           Else
  187.  1608                       GoTo 2289
  188.  1614                       Join i4505
  189.                             AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  190.                             If i4507 <> 0 Then
  191.                               mh4521.From = s4467
  192.                               mh4521.To = s4517
  193.                               mh4521.Subject = s4475
  194.                               CurrentDateTime dt4841
  195.                               mh4521.MsgTime = dt4841 '! 6 bytes
  196.                               GoTo 1741
  197.                             Else
  198.  1735                         GoTo 2289
  199.  1741                         Join i4507
  200.                               AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  201.                               If i4509 <> 0 Then
  202.                                 mh4521.From = s4467
  203.                                 mh4521.To = s4517
  204.                                 mh4521.Subject = s4475
  205.                                 CurrentDateTime dt4841
  206.                                 mh4521.MsgTime = dt4841 '! 6 bytes
  207.                                 GoTo 1868
  208.                               Else
  209.  1862                           GoTo 2289
  210.  1868                           Join i4509
  211.                                 AddMessage(mh4521, ProgPath + s4479, "", 1213417543)
  212.                                 If i4511 <> 0 Then
  213.                                   mh4521.From = s4467
  214.                                   mh4521.To = s4517
  215.                                   mh4521.Subject = s4475
  216.                                   CurrentDateTime dt4841
  217.                                   mh4521.MsgTime = dt4841 '! 6 bytes
  218.                                   GoTo 1995
  219.